home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / td187src.lzh / MAGICSTR.D < prev    next >
Text File  |  1991-06-09  |  2KB  |  43 lines
  1. (*#######################################################################
  2.                            M A G I C S T R I N G S
  3.   #######################################################################
  4.   V1.0  18.10.90  Peter Hellinger
  5.   #######################################################################*)
  6. DEFINITION MODULE MagicStrings;
  7.  
  8. FROM MagicSys   IMPORT  Nil, Null,
  9.                         Bit0, Bit1, Bit2, Bit3, Bit4, Bit5, Bit6, Bit7,
  10.                         Bit8, Bit9, Bit10, Bit11, Bit12, Bit13, Bit14, Bit15,
  11.                         LOC, Byte, ByteSet, sWORD, sINTEGER, sCARDINAL, sBITSET,
  12.                         lWORD, lINTEGER, lCARDINAL, lBITSET;
  13.  
  14. TYPE    STRING =        ARRAY [0..255] OF CHAR;
  15.         Relation =      (less, equal, greater);
  16.  
  17. PROCEDURE Length  (REF str: ARRAY OF CHAR): sCARDINAL;
  18.  
  19. PROCEDURE Pos     (substr, str: ARRAY OF CHAR): sCARDINAL;
  20.  
  21. PROCEDURE Insert  (substr: ARRAY OF CHAR; VAR str: ARRAY OF CHAR; index: sCARDINAL);
  22.  
  23. PROCEDURE Delete  (VAR str: ARRAY OF CHAR; index, len: sCARDINAL);
  24.  
  25. PROCEDURE Append  (substr: ARRAY OF CHAR; VAR str: ARRAY OF CHAR);
  26.  
  27. PROCEDURE Copy    (REF str: ARRAY OF CHAR; index, len: sCARDINAL;
  28.                    VAR result: ARRAY OF CHAR);
  29.  
  30. PROCEDURE CAPS    (VAR str: ARRAY OF CHAR);
  31.  
  32. PROCEDURE Equal   (s1, s2: ARRAY OF CHAR): BOOLEAN;
  33.  
  34. PROCEDURE Compare (s1, s2: ARRAY OF CHAR): Relation;
  35.  
  36. PROCEDURE Assign  (quelle: ARRAY OF CHAR; VAR ziel: ARRAY OF CHAR);
  37.  
  38. PROCEDURE Cap     (ch: CHAR): CHAR;
  39. (* Wandelt auch deutsche Umlaute *)
  40.  
  41. END MagicStrings.
  42.  
  43.